home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d11 / basmus.arc / BOUREE.BAS < prev    next >
BASIC Source File  |  1990-09-29  |  2KB  |  51 lines
  1. 10 'bouree - with comments describing the strings
  2. 20 A$ = "MB ML L8 T150"
  3. 30 ' MB = music background - notes are kept in a buffer
  4. 35 ' that plays in the background while program does other
  5. 40 ' things
  6. 50 ' ML = music legato - each note plays full len of time
  7. 60 ' L8 = default length of note, in this case an 8th
  8. 70 ' T150 = sets tempo by specifying the number of quarter
  9. 75 ' notes in a minute
  10. 80 '
  11. 90 B$ = "O4 D E F4 E D C+4 D E O3 A4 B O4 C+ D P10"
  12. 100 ' O4 sets the current octave to 4 (octaves numbered
  13. 105 ' from 0 to 6)
  14. 110 ' D and E are eighth notes (the default length), F4
  15. 115 ' is a quarter note
  16. 120 ' C+4 is a C sharp quarter note, O3 changes the octave
  17. 125 ' to 3
  18. 130 ' P10 is a pause with a length of 10
  19. 140 '
  20. 150 C$ = "C O3 B- A4 G F E4 F G A P16 G F16 E16 D8 P10"
  21. 160 ' B- is B flat, F16 and E16 are sixteenth notes
  22. 170 '
  23. 180 D$ = "O4 D E F4 E D A4 F A O3 A4 B O4 C+ D P10"
  24. 190 E$ = "C O3 B- A4 G F P32 F16 G16 F16 E16 F16. P32  F2"
  25. 200 ' a . following a note acts just like it does in music,
  26. 210 ' it plays the note 3/2 times the length indicated.
  27. 220 '
  28. 230 ' the following statements "play" the strings defined
  29. 235 ' above
  30. 240 '
  31. 250 PLAY A$
  32. 260 PLAY B$
  33. 270 PLAY C$
  34. 280 PLAY D$
  35. 290 PLAY E$
  36. 300 '
  37. 310 ' if i had used MF (music foreground) instead of MB
  38. 315 ' (music background),
  39. 320 ' i wouldn't need the "if inkey$..." statement.  with
  40. 325 ' MB, though, continued next message...
  41. 330 ' the program ends before the music gets a chance
  42. 335 ' to play.  MB is useful
  43. 340 ' when you want to set graphics to music.
  44. 350 IF INKEY$ = "" THEN 350
  45. 360 '
  46. 370 ' i like to leave basica at the end of the program,
  47. 375 ' but left it
  48. 380 ' commented out.
  49. 390 'SYSTEM
  50. 400 END
  51.